home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / MAGXHC30.M < prev    next >
Encoding:
Text File  |  1994-01-18  |  449 b   |  27 lines
  1. MODULE MagxHC30;
  2. (*$N+*)
  3.  
  4. (*
  5.  * Init-Prg zum Booten von Mag!X mit dem HC030
  6.  *)
  7.  
  8. FROM SYSTEM IMPORT ASSEMBLER;
  9.  
  10. BEGIN
  11.   ASSEMBLER
  12.         CLR.L   -(A7)
  13.         MOVE    #$20,-(A7)      ; Super()
  14.         TRAP    #1
  15.         ADDQ.L  #6,A7
  16.         
  17.         MOVE.L  4,A0
  18.         MOVE.L  $4F2,A1
  19.         CMPA.L  4(A1),A0
  20.         BCC     ok
  21.         MOVE.L  A0,4(A1)
  22. ok:
  23.         CLR.W   -(A7)
  24.         TRAP    #1
  25.   END
  26. END MagxHC30.
  27.